home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Presentations / Presentations ’94 / Tom Pittman / 68K on PowerPC / 68K on PowerPC Presentation / 68K on PowerPC Presentation / background_3800.xml < prev    next >
Extensible Markup Language  |  1994-06-24  |  4KB  |  78 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3800</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3146.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>field</type>
  13.         <visible> <true /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <false /> </sharedText>
  17.         <fixedLineHeight> <false /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <true /> </lockText>
  20.         <rect>
  21.             <left>22</left>
  22.             <top>17</top>
  23.             <right>614</right>
  24.             <bottom>459</bottom>
  25.         </rect>
  26.         <style>transparent</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <false /> </showLines>
  29.         <wideMargins> <true /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Helvetica</font>
  36.         <textSize>48</textSize>
  37.         <textStyle>condense</textStyle>
  38.         <textStyle>bold</textStyle>
  39.         <textHeight>72</textHeight>
  40.         <name></name>
  41.         <script>on mouseDownif the commandKey is down then set the locktext of me to falseend mouseDown</script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <false /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <true /> </lockText>
  53.         <rect>
  54.             <left>617</left>
  55.             <top>465</top>
  56.             <right>640</right>
  57.             <bottom>480</bottom>
  58.         </rect>
  59.         <style>transparent</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>right</textAlign>
  68.         <font>Geneva</font>
  69.         <textSize>9</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>12</textHeight>
  72.         <name>Page#</name>
  73.         <script>on mouseDownif the commandKey is up then pass mouseDowndoMenu "New Button"set the style of button 1 to Transparentset the name of button 1 to emptyset the autoHilite of button 1 to falseset the ShowName of button 1 to falseset the hilite of button 1 to trueend mouseDown</script>
  74.     </part>
  75.     <name></name>
  76.     <script>on openCardget the number of this cardif field 2 ‚↠it then put it into field 2pass openCardend openCardon mouseUpif the commandKey is down then exit mouseUpgo nextend mouseUpon mouseDownget the long name of the targetif it contains "field"then if the commandKey is downthen set the locktext of the target to falseend mouseDownon enterKeyif the visible of message then pass enterKeyif the selection is not empty then pass enterKeygo nextend enterKeyon closefieldset the locktext of the target to trueput the target into datarepeat while aline contains tabput "≈∏" into char offset(tab,aline) of alineend repeatif "≈∏" is not in data then pass closefieldrepeat with lino=1 to the number of lines in dataset cursor to busyput line lino of data into alinerepeat while aline contains "≈∏≈∏"delete char offset("≈∏≈∏",aline) of alineend repeatrepeatget offset("≈∏",aline)if it=0 then exit repeatput char 1 to 8-it mod 8 of "        " into char it of alineend repeatput aline into line lino of dataend repeatput data into the targetpass closefieldend closefield</script>
  77. </background>
  78.